home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / d_d / stanford / charshts / seabrook / macros / compani.ons next >
Encoding:
Text File  |  1993-06-22  |  1.8 KB  |  54 lines
  1. #    charsheet:companions    1.3
  2. #
  3. #    Copyright 1991, Chris Seabrook
  4. #
  5. #    This work may be freely used. modified and distributed for non-commercial
  6. #    purposes so long as it retains this notice.
  7. #
  8. # companions(number)
  9. # companion(name, race, ac, hd, thac0, hp, #atks, dam, special)
  10. .PS
  11. define companion X
  12.     if ncompanion>0 then Y
  13.         ncompanion=ncompanion-1
  14.         [
  15.             box invis wid 2*sheetwid/12 ht boxht/2 "$1"
  16.             box invis wid 2*sheetwid/12 ht boxht/2 "$2"
  17.             box invis wid sheetwid/24 ht boxht/2 "$3"
  18.             box invis wid sheetwid/24 ht boxht/2 "$4"
  19.             box invis wid sheetwid/12 ht boxht/2 "$5"
  20.             box invis wid sheetwid/24 ht boxht/2 "$6"
  21.             box invis wid sheetwid/24 ht boxht/2 "$7"
  22.             box invis wid sheetwid/12 ht boxht/2 "$8"
  23.             box invis wid 8*sheetwid/24 ht boxht/2 "$9"
  24.         ] with .sw at Ncompanion.sw + (0, ncompanion*boxht/2)
  25.     Y
  26. X
  27. define companions X
  28.     ncompanion=$1
  29.     Ncompanion: [
  30.     box invis wid 2*sheetwid/12 ht 2*boxht/3 "\f(HB\s+2Companions\s0\fP"
  31.     box invis wid 2*sheetwid/12 ht 2*boxht/3 "\f(HBRace/Species\fP"
  32.     box invis wid sheetwid/24 ht 2*boxht/3 "\f(HBAC\fP"
  33.     box invis wid sheetwid/24 ht 2*boxht/3 "\f(HBHD\fP"
  34.     box invis wid sheetwid/12 ht 2*boxht/3 "\f(HBTHAC0\fP"
  35.     box invis wid sheetwid/24 ht 2*boxht/3 "\f(HBHP\fP"
  36.     box invis wid sheetwid/24 ht 2*boxht/3 "\f(HB#Atks\fP"
  37.     box invis wid sheetwid/12 ht 2*boxht/3 "\f(HBDamage\fP"
  38.     box invis wid 8*sheetwid/24 ht 2*boxht/3 "\f(HBSpecial\fP"
  39.     for count=1 to $1 by 1 do Y
  40.         box wid 2*sheetwid/12 ht boxht/2 with .nw at 9th last box.sw
  41.         box wid 2*sheetwid/12 ht boxht/2
  42.         box wid sheetwid/24 ht boxht/2
  43.         box wid sheetwid/24 ht boxht/2
  44.         box wid sheetwid/12 ht boxht/2
  45.         box wid sheetwid/24 ht boxht/2
  46.         box wid sheetwid/24 ht boxht/2
  47.         box wid sheetwid/12 ht boxht/2
  48.         box wid 8*sheetwid/24 ht boxht/2
  49.     Y
  50.     ] with .n at last box.s + 0,-1*border
  51.     box ht last [].ht+border wid last [].wid+border at last []
  52. X
  53. .PE
  54.